home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 21 / Tiger_Disk_021_19xx_Tiger-Crew-Disk_de_Side_A.d64 / farbtest _ tc (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  32 lines
  1. 5 poke788,52:print"[147]"
  2. 10 print"            farbtest     / tc   "
  3. 15 print"  dieses programm ermoeglicht es dir,     festzustellen, ob hinter";
  4. 20 print"grund- und":print"  schriftfarbe zusammenpassen.":print"  zum aendern der";
  5. 25 print" hintergrundfarbe":print"  benutzt du die tasten   f1 und f2."
  6. 30 print"  zum aendern der schriftfarbe":print"  die tasten              f3 und";
  7. 35 print" f4.":print"  die rahmenfarbe kannst du mit":print"                        ";
  8. 40 print"  f5 und f6":print"  einstellen."
  9. 45 print"  hast du einen drucker angeschlossen     (und eingeschaltet...!),"
  10. 50 print"  so kannst du geeignete farbzusammen-    stellungen auch drucken!";
  11. 55 print"  (=  d )":print"              [158]ende = e":poke53265,27
  12. 60 geta$:ifa$=""then60
  13. 65 ifa$=chr$(133)thena=a+1:ifa>15thena=0
  14. 70 ifa$=chr$(137)thena=a-1:ifa<0thena=15
  15. 75 ifa$=chr$(134)thenb=b+1:ifb>15thenb=0
  16. 80 ifa$=chr$(138)thenb=b-1:ifb<0thenb=15
  17. 85 ifa$=chr$(135)thenc=c+1:ifc>15thenc=0
  18. 90 ifa$=chr$(139)thenc=c-1:ifc<0thenc=15
  19. 95 ifa$="e"thenprint"[147]":poke646,b:goto110
  20. 100 ifa$="d"thenopen4,4,0:cmd4:goto115
  21. 105 poke53265,11:poke53281,a:poke53280,c:poke646,b
  22. 110 print" ";
  23. 115 ifa$="d"anda=bthenprint#4:close4:print"[147]":goto10
  24. 120 print"screen:";:ifa<10thenprint" ";
  25. 125 printa;
  26. 130 print"  schrift:";:ifb<10thenprint" ";
  27. 135 printb;
  28. 140 print"  rahmen:";:ifc<10thenprint" ";
  29. 145 printc:ifa$="e"thenprint"run":end
  30. 150 ifa$="d"thena$="":print#4:close4:goto60
  31. 155 goto10
  32.